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EXPLICACION 
DE LOS PROGRAHAS 


CLASIFICA 

• . . .. 

LO-’ r ptoGRAMÁ <SISTEMA DE CUASIFICACION 1> 

20 :i CLASIFICACION POR EL •. SISTEMA DE MiNI MQS« 

•'■O ;l 

40 KÉYÓFF’s WIDTH39 
O ( eé)L©Et S,, 4,¿ 4 rSOREENO 

o. L.acA"nts , f 14 pe i nt ? s is temas de ceas i f. i c ac ion h ; 

70 ; LOCATEO, O íPR I NT den ador es a la hora de c I asi ti ciar; un con junto de palabra 

n , - j 11 ,,, i ici a ■_ 11 ¿ ' ' " . Si o *_ j i ü' • i i i _ i , come ti o conqcar) '' ¡ a J-* abeto j, en t t 1 1 v 1 
;¡ nación se ' gui an por los códigos ASCII que no son exactamente iguales que el 
altabeto 

SO PRIliiT" | ::, ara el ordenador no será lo mi..smo ,.<4 > que<a> ya¡ que La pri mera t i ene 
d:i. s. tinto código que la segundar de igual" 

SO PRI NT "-forma. Los caracteres en ma y áse Lilas no tienen el mismo código y La ñ no 
ti ene el código entre la n y Ja o n por lo quea. la hora de hacer una clasificad 
Ónt débérémdxs tener en cuenta todos éstos factores» 

TOÓ.!,J::)CATE2 r 22rPRINT"lFuLs|a una tecl a para continuar " 

110 IF I NKEY " " THEN.LIO EL. SE CLS 
120 LOCATE? , 0 s R‘R 1 NT " METODO DE M IN I MOS " 

Ido PRI NT s PRÍNT" lote mtodo de clasi f icación es el " s PR IN í s'FRLNT" más lento en ej 
eciuci ón pero el más " ¡; PR INT¡: PR INT M simpl e en ; e<| tructura „ Consiste en i a" s PRINTs PR 
k NT" coífipárac i ó ti de una palabra con todas" s PRINT?; PR I NT "5 Las restantes de la 1 ista, 
de maneraV . ... . . . . . . ..i.. ! .i. 


.... r 
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i 40 PRINT: PRINT" que sustituye 1 a pal abra tomparadara, " ' PR I NT s PRINT “piar j.apaH4'a d t 

uelpresenta el mí nimo"5PRINT 

15Q PRINT "valar de nuestra lista; a.cont i bufac i ón " s PR I NT ¡PRINT “compara la siguí en 

te y asi sucesiva- 11 : PRINI : PRINT'"mente hasta i. ompletar la, lista» " 

160 L0CATE2,22 5 F'R IÑT " Pul sa una tecla para continuar 1 * 

T70 IF INKEY$ = " "' Tl-lEN 170 ELSE CLS 
i 80 L..DCATE5,0 s PRI NT "¡pUBRUT I NA DE ÜL.AS IFICAC10N " 

190 L.0CATE9., 2: PRINT "METODO DE MINIMOS" 

200 L.OCATEO, 4: PF<INT" 10 FOR i»l TO n.1 " ! PRINT: PRINT" 20 mí>= a $ ( i ) s k = i " s PRINT: F'RIN ' 

í" 30 FOR j=i+l TO n"sPRÍNTsPRINT" 40 IF a$(j!<in$ THEM k= jsm$=a$(j)":PRINT 

210 PRINT" 50 NEXT j"sPRINT:PRINT"60 SBfiP a*(i),a*(k>"sPRINTsPRINT" 70 NEXT i": 

PRINT: PRI NT” n número de datos a el asi í i car " : PRINT: BE In 4' " a$-(n)matriz guei a|. mac 

! ; : : ; f : ; i i : i i i ! : I 

;ena los dalos" 

215 l 0CATE2,22:PRINT"Pulsa una tecla para continuar" 

220 IF I:NKEY$="" THEN 220 
230 SCREENO:OLEAR 2000 

240 PRINT" i ntrodüce 10 palabras de (5 letras: como 

250 DIM P(20):N=10:PL=11s K=18 

260 FOR Z =1 TO N 

270 PRINT"paiabra húmero"; 1% 

280 INPUT Pí <Z> 

290 IF LENCPÍi (Z) ) Y5THEN 270 ’ . 

300 NEXT 
,310 SCREEN 2,2 
320 0PEN"grp:" AS #1 
330 H=180 

: 340 D TM A Til, 15) , T$ (20) 

350 FOR 7. =■ 1 TO 8 
360 0f=0$+CHRf(0) 

370 NEXT 
380 PL-PC-,1 

390 FOR Z=56 TO 87 STEP 6 : 

400 PC»(Z-56)/6+1 
|"4 í 0 A*»MID* < P* (PL') , PC, 1) 

420 DRAW"b ; ,, 0". 

430 PR I NT# 1 , Af> 

440 NEXT 

450 FOR D=56 TO 87 

44o : IF D<72 THEN A <0i, D--56) sVBEEK CD); ELSE A.( 1., D.--72.) -yPEEK í D) 

470 NEXT D 

480 FOR V=1 TO 2 

490 FOR X»0 TO15 

500 T$(K)=TS(K)+CHRS(A<0,X)) 

; 510 : T$- (K+1 ) =T$| (K.+1) +CHRT (A ( 1 , X > ) 

520 IF X?7 OR X» 15 THEN T* í K) »T* (K) +0*: T* (K+ 1) =TS (K+ 1 ) +UÍ 
530 NEXT i 
540 NEXT 

5$0 SPRITBí (¡O “TT <K) 

560 ISPRITES < K+1)=T$(K+l) 

570 RUT SPRITE K, <56,.1 ),, 15,K 

580 PUT SRRITE !<+1 , (72,-1 ) , 15, K+1 
590 LINE(0,0)-(255,105,4,BF 
-600 FOR Y=-l TO H 

610 RUT.SPRITE K, <56, Yi>. , Í5.j,.K 

620 PUT SPRITE K+l,(72,Y),15,K+l 
630 SOUNDO,Y+70s SOUND1,K/2+1 
640 SOUND8,6 
650 NEXT 
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660 SOUND8,0 
670 P(K)=H 

680 K--K-2 . 

690H—H—i8 

700 IF K >=0 THEN 380 

710 DRAWbm i 43, O" : PRINT#1, "CLASIFICACION" sDRAW"BM145, 10" : PRINTttl , "POR EL. METODO" 
:DRAM"BM157,20":PRINT#1,"DE MINIMOS" 

720 POR 1=1 TO N—í 
730 M$=P$ (I > 

740 DRAWbm 150, 40" : PRINT# 1, "Comparando" 

750 DRAM"bm 170,60 " : PR I NT# 1, P$ (I) 

760 GOSUB 960 
770 L=I 

780 POR J=I+l TO N 

790 LIME <150, 100) - <255, 110) , 4, BF ¡¡ DRAWbm 174,80" : PRINT# 1, "con " ; DRAWBM 170, 100" ¡¡ P 
RINT#1,P$(J) 

800 GOSUB 1040 

810IF P$(J)<M$ THEN L=á : M*4P*C J) 

820 L.IME (205, 130) - <255, 140) , 4, BFs DRAW" bm 150, 130" s PRINT#1 , "Mí ni mos " ; M* 

830 DRAWBM 150, 150" : PRINTfl , "Para seguir " s DRAWbmlSO, 170" SPRINT#! ,, "pulsa tecla" 
840 IF ÍN!<EY$="" THEN 840 EL...SE 8EEP 
850 NEXT 
i 860 SDSpB 1120 
870 SWAP Pife < I) , P* < L) 

380 IF P$ < I) < i: P$ <L) THEN GOSUB 1180 ELSE GOSUB 1640 

890 NEXT 

900: GOSUB USÓ 

; 910 DRAW"bm120,50":PRINT#i,"Fin de Tter":DRAW"BM120,70":PRINT#1,"clasificación." 
520 DRAWbm 120,90" SPRINT#! ,"Pulpa P para otra" 5 DRAWbm 1-20, 110" S PRINT#! , "clasific 
aje i ón " 

930 DRAWbm 120, i 30 " s PR I NT# 1 , "Pulsa T para" s DRAWbm 120, ISO": PR I NT # 1, "terminar" 

940 R*=I'NRUT* ( 1 > 

900 XFm^'P" ÜR R1> ::: ""p" THEN RUN 230 ELSE IF R^="t" OR R*4" H T" THEN SCRÉENO:LOCATE 
4, 10 ;íPR:i:NT"PARA EL SIGUIENTE PROGRAMA " s LÜCATE4, 12 s PR I NT " PULSA RUA Y EN EL CASSET 
TE" sJCLOAD ELSE 940 
96 O R E M c a m 1::) i o c o i. o r s p r i. t e :i. 

970 I IH<í.1> *2 

980 IF IITM THEN i 010 

990 RUT SRRITE- 1142, (56,P(11-2) ) , 15,II-2 
i 000 RU T* SPEI TE 11 •-1, (72,9(11 -2) ) , 15, I I -1 
i OiO RUT SERITE 11, (56,P(11)9,6,11 
1020 RUT SPE I TE I I'+1, (72 „ P (I I ) ) , 6, I I +1 
1030RETURN 

1040 REM cambi e color spri te j 

1050 JJa(J.1) 

1060 IF JJ.2™ :: I I THEN 1090 

1070 RUT SRRITE JJ.2,(56,R(JJ-2)>,15,JJ~2 

1080 Rut SRRITE JJ.1, €72,R(JJH2)i) , 15, JJ-1 

1090 RUT SPRITE JJ, (56,P(JJ) ) ,6,JJ 
1100 RUT SRRITE J Ji-1 , (72, P (J J) ) ,6, J J +1 
1 110 RETUEN 

1 120 RUT SPRITE JJ, (56,R(JJ)), 15,JJ 
1130 RUT SRRITE JJ+1,(72,P(JJ)),15,JJ+1 
1140RETURN 

11SO RUT SRRITE II, (56,P(II) ) , 15, 11 
1160 RUT SPRITE II +1, (72,R(I I) ) „ i5, II +1 
1170 RETURN 

11Bp REM c amhi ó posici Ón sprit es 
1190LINE(150,40)-(255,191),4,BF 
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1200 DRAW"bm160,50";PRINT#1,"Camb i o: “ :DRAW"bm160,70":PRINT#I,P*(O 

1 210 DRAW“bm 170,90":PRINT# 1, “por DRAW"bml60, 110" : PRINT# 1, P* (I) 

1220 POR T=1 T0 500:NEXT 

i230 LL= <L~-1)#2:CC=56 

1240 SOUND1,1:SOUNDS,6 

1250 FOR X=56 TO 102 

1260 CC=CC-1 

1270 PUTSF'R I TEL.L, ( X , P (LL) ) , 3, LL. 

1280 PUTSPRITELL+1, (X+16,P(LL> ) ,: 

1290,PUTSPRITEII,(CC,P(Ií)>,3,11 



> J Lll +f 


(CC+16, P (T I)),3,II41 


i 340 FQRY=P ( 11 ) Td F'(LL) 


1350 YY=YY —1 i 
1360 PUTSPRITELL,(TOS 
1370 F'U" 


,YY) 43, LIC 


SPRI TELL.+ 1 ,( 118 , Y Y) , 3 , L..L +1 
1.380 PUTSPR ITEII, ( 10 , Y) , , 3 | 11 
Í 390 PUTSPRITEI 1 + 1 , ( 26 ,Y > , 3 , 11 +1 


1400 
1410 
1420 


SOUNDO,Y 
NEXT 
COI O 




; :l 

1 

. 430 

L 440 

FOR 

CG=C 

X ::::: 102 

:c +1 

TO 

L 56.STEP- 

! 1 : ¡ • 1 

kx 
























L 450 

PUTSPR I TELL, 

(X,P( 11) 

),3,LL 


















0 PUTSPRITEL.L+1 , ( X + 16, P (II) ) , 3, L.L+1 
PRI TEI I, (CC,P(L.L) ) , 3 jT I 
PRI TE11 +1, (CC+16,P(LL)) ,3,1I +1 
DO, X 
NEXT ■ X 
1510 SOUNDS,O 
1520 SPR ÍTEiÜ (T I > 4T4 (LL) 

1530 SPRiTE*(LL)=T*(II) 

1540 SPR I TE* (11 +1) »T* (I-.L+1) 

1550 SPRI TÉ*(LL+1)=T*(11 +1) 

1560 PUTSPRITEII,(56,P(II)),15,TI 
1570 PUTSPRITE1.1 +1 , (72, F' (11 > ) , 15, 11 + 1 
1580 PUTSPRITELL,(56,P(LL)),15,LL 
1590 PUTSPRITELL+1,(72,P(LL)),15,LL+1 
1600 iSWAP T*(II),T*(LL) 

1610 SWAP T* (11 +1 > , T* (L.L+1 ) 

16201 L TNE (150,40) -- (255, 191) , 4, BF 
1630 RETURN 

1 6 4 O R EII n o hay cía m b i o d 0 s p r i t e s 
1650 LINE(150,40)-(255,191),4,BF 

1 660 DRAW 11 bm 150,50 " s F‘R INT# 1, " No hay camb i o 11 s DRAW " bm 150,70 " í PR I NT# 1 
" “ DRAW‘'bml50,90" s PRI NT# 1, "ci asi -f i cade" 

1670 FOR T=t 1 TO 1000 s NEXT 
1680 LINE(150,40)-(255,191),4,BF 
1690 RETURN 


'por estar ya 
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CUADRADO MALDITO 


10 REM PROGRAMA- K CUADRADO MALDITÜ > 

20 

30 COLOR 15,4,4sSCREEN OsWIDTH 30sKEYÜFF 
40 PE í NTTAB 1 7)5 'ICÜADRADÜ MALD TTO f s PE I NTs PFINT" 


El c: uad r a do 0 s t á d 0 i i n i d o p □ r 


» d0 1 i:n i r t ¿ 0nen n úmer o i mpar d0dasi 1 
?nte r os y 0 s jt á n -f o r m a d o s , c: o fin o m ái x i 


' s PR 3! 


un een junto de riánseres que tu debéis aver i guartodas l as 4i 1 asi, columnas y di agón 

a 1 0 s s l¡ m a n l.g y al« " .UJ. . . 

5 O PRINT 2 PR 1 NT " Los cuadr ados ; qúx 0 t u pu0d€ 
las y 1 tédos 1 bs núrn 0 ros qu 0 conti en 0 n s á n 
fría, por dos cifras» 11 

60 PE I NTs PEINT" La única condici ón es- que los números no se repi tarr» 

NTT intrbduc 0 las letras 2,2. s^ quieres*. abandonar o presentar tu jugada- 
70 PRINT s PR1 NT"PULSA UNA TECLA PARA CUNENZAR" 

SO TFIÑKEY$=='" n "THENSO 
90 SCREENOs WIDTH39 
100 DXM(Í(9 ? 9) ,8(9,9) 

105 PEI NT s PR INTTA8 (9) 5 " ESCRIBEEN MAYUSCULAS " 

110 LÜÜATEO, 1 Os IiNPUT ,, ELIBE EL TAMAwü DEL CUADRADO (ENTRÉ 1 Y 9 

120 I FB/2“ :: I NT (8/2) ORE >90R8O ORBY > INT (B) THENPLAY “ 02CC " 2 CLS s GOTO i 05 
130 CLS ■ LOCATE 0,10 2 PE I NT " UN MOMENTO, POR FAVOR, ESTOY PENSANDO„ .. “ 

140 Es I NT (RND (-TIME) *20) 

150 I FE< OORE >99TI-iEN 140 
160 D=E s; A ™ 1 s I«1 s J ==' (B+ i ) 72 


.r 


E 


IMPAR 


1. 


170 C ( I, J) =Ds D=D+1 s IFD::>B^BTE-~TTHEN260 
ISO IFA4BTHEN200 
190 As1 2 L~L+ls GOTO170 

200 a4a4i 

210 I = I~ 1 » J«J + 1 
220 WTÍ 70THEN240 
230 sí GOTO 170 

240 IFJásBT HEN170 
250 J=is G0T0170 
260 D 55 ( () /2') +B* (Er 1) 

270 SGEÉEÑ2s OPEN"GRF i” AS#1 

| 2SO L1NE (0, O) < 235 , 10) , 1, BF s DRAW 11 BM51,2 n s PR I NT# 1 , “ ADIVI NA LOS NUMEROS" 

290 FORV-25T0B* 15+25STEP15 
; 300 L.INE (20, Y) - (B*24f 16, Y : ! : 5) ,S,BF 


. i.L 


..!.i 


±tí 


.I— 


1 

i 


310 : NEX'f 

320 P0RX'= 16TQB*24+ i 6STEP24 
330 LINE ( X, 25).— (.X+7,B*15+30) ,8,BF 
340 NEXT 

' 3 SO CL=64; C0L.0R9: FDEX=30TÜB*24+i 8STEP24 s CL=CL+1: DRAW"BM?=X; , 15" : PR í NT § 1, CHR*<CL> : 
NEXT 

360 CN=0: F0RY=32T0B* i5+22STEP15: EN=CÑ+1 ; DRAW"BM9, ==Y; " : PRINT# 1 , MI D$ (STR* (CN) ,2,2) 
; NEXT 

370 COLORIO:DRAW"BM20, =Y¡¡ " s PRJNT# 1 4 iSÜMANs "l-D 
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w. 


590 


380 CdCORI-Ss PARAT1ERI11NAR " s É0RZ-1T0LEN <T$> s Y-Z*9+16: DRAW"BM24 

# 1 ? li I D$ (T'&, Z, 1) sNEXT 

390 DRAW " BM20, i 82 " iPR I NT# 1,..." ¿LETRA Y 
I FA$- " Z Z " GR A*= "zz" THEN600 
F*=LEFT* (A*, i ) i! N*=RIGHT* <A*, 1 ) 

IFABC (Ff) 7CLQRASC (Ff) < 65THENFfLAY TU2C n s GOTO390 

IFASC <WH>) >ASC (MID$OTRIi (GN) ,2, i ) )GRASO LN%)449THÉNPLAY"Q2E72 00+0^94 
Y-VAL ( m ) s X—ABC(Filú—64 
YY= 17+15*Ys X X + X *24 

LINE ( X X.1 , Y Y -1).< X X +14 ? Y Y+7 > , 3 „ BF 

LI NE (0, 180).(253 , 191) , 4, BF 

COLOR 15 s 'DRAW " BiiTD, 182 "I PR IliíT'é'l J “ÉSÚnÍBB ÉL VALOR Y PULSA ENTER “ ísi- 4 “ 

I L.S— I NKE'Y1> ¡: IFL$4 " " THEN490, 

1FL¿< >CHR$ (13) T H ¡E N B f>—B ■$>+L $ s G 0 T 049 O ÉL SE ij F.B $ ™i" 1 ' THE N P L A Y" O 2 C 11 s G OTO 4 8 Ó 
Z4ASC (LEFT$ ( B$ , li) ) IF2< 48DRZ >57THENPLAY " G2C“ s GGTG480 

B ( Y, X ) — VAL (B*) 5 I FB : ( Y, XX OÜRB (Y,X "> >99QRB ( Y, X) OI NT (B (Y, X ) ) THENPLAY n G2C 


Yp r s ERINT 


i— h 


NUMERO? " s Afe I NPUTlfc,.< 2) s í EÁsfcé. V. “.THENZ 

400 
410 
420 
430 
440 
450 

460 4 i i\íp ( y y J i vv -1 i ... y y y -m a i v v+7 \ V-i £3 
470 

480 Rni HP 1S* nPAW" MMthí i «^'* !< PpTi\iTH;t i \ m ',/¿vi nb v mu caiv ^ 

490 L*=INKEY*: XFL«= " " THEN490 

.50.0... 

510 Z —ABC(LEFT$(B*‘, 1) ) 5 IFZ< 48GRZ >57THENPLAY"020“s G0T048Ü 
520 B (Y, X ) - VAL (B«) 5 IFB (Y , X ) < OGRB (Y, X ) >99GRB ( Y, X ) < > I NT (B<Y, X ) )THENPLAY“ 020“ s G0TG4 
80 
52‘- 
530 
0 

6Ó0 
610 
iéáo 
6¿0 

700 IFB-1THEN7S 

705 MX = Ó s MN=99: F0RI -1TDB: F0RJ = 1TOB: I FMX< B (I, J ) THENIÍX=B (I, J > EL. SE IFMN >B <1,3 ) THEÑMN 
=B!I,J) : 

710 NEXI" 5 IFMX =MNTHEN 1 100 

720 F0RI = 1T0B; FQRJplTOBü X (I) =X (I) +6(1, J Y (I) ~~Y (I) +[B(J. 1) ; Ng.Xjj| I 

740 D1 =0: D2=0: FORI == 1 TOB5 Dl=Dl+B (1,1): IMEXTs J=B5 FORI = 1 TDB: D2=D2+B < l „ J) : J=J-1: NEXT 

750 ÍFB1<>D0RD2<>DT HEÑI 100 

760 FÜRI = 1 TOB: IFX cjl ) < >DORY (I) < 7DTHIEMX 

770 IMEXT; IFI =B*3THENi 100 

lSÓO ERASEX , Y: J,=4o S FOR I =0T0191 STEPSi F'liAY " L64N-J ; " : UNE < O, I) - (255j I +75,8. ÉF: DRAW" B 
MIO,, = 15 " s PRINTttl"ENHORABUENA ' LO HAS CONSEGUIDO” ; J==J+1 s NEXT; FORTUITO 1000: NEXT 
900 SCREEN2: DRAW“BM40.., 90" ; PRINTttl, "¿OTRA PARTIDA? (S/N) R$=INP!üT$ <1) s IFR*0"S"A 
MDRÜiC >"s"ANI)RíÜ< >“N" ANDR$< >"n"THEIM900 

THE N RUN90E L SÉ1500 
1 TOB ! . 


.i.I.-4- 


ifcINÉ ( XX--1, YY-1 ) (XX + 14, YY+7) j 4, BF ; .. : . .. . . .. . . 

DRAW"BM=XX s , —Y,Y 5 " s PRINTttl, USÍNB"##" ; B < Y, X) : UNE (O, 182) - <255¿ 191 í , 4, BF:43ÜT039 

. ' .. .. ! . .. 

LINE(0,182). (255,191),4,BF 

DRAW”BFI20,182 "í; PRINTtti l, " ABANDONAS (A t 
IFR4< >" A" ANDR4< >" a" ANDR^i: >i'E" AÑDR«4>"i 
I FR$== " A " 0RR1»:= "a " TIMEN 1000 
20 


Ü EVALUO (F > “ X NPU*r$ ( 1) 
? -THENPL.AY“ 02Qr s GGT0610 


9 le I FR-f-a» 

ieoe for i 


1 o 1 o 

í 020 


YY= 


l8 , IGRR^^ u iS ! 

Al.t1ob.a4qb|j= 

17-i" 15Y I s XXN1+J:*24 


■T 


LI m. i X X 1,, Y Y -1) ( X X H -14 J, YYf-7) 4,, BF 






ií 

i)30 ORAN ‘ 

1 BN-XX ;; , * 

|YY!; rrFRT'NTWll, USING n ## " (üí 

I, J) 




i.i. 


t. i 




i.H 



t .T |.7“ 

T.K 

)40 IMEXTl 

i, 3 

















i—i. L .j. 

u 

>50.LINET 

:o. 

182).( 

.255, 191) 

, 4, B F s D R AUj" B M 20, i 

82"SPRINT# 

ti, 

"PULSA TECLA 

PARA.C 

:.ONT INL 

i.j.!.I... 

AJ 









| ■ j V. 



\ 1 








1 i 

bóO ÍFINHEYíli-" "THEN1060ELSE900 


H-- vvv 












\ 1 T i 

i: 

LOO ERASEX, 

[Ys L.INE (Oh 182) 

(255,191),4,BF 

;.1. . i .. 












}. 

1.f.1.f. 

1 ¡ 

LIO IpRAW 

iBH20 9 182"SPRINT#!, "EL CUADRADO NG 

! ES CORRECTO 

"sPLAY ,, 0: 

2CCG’ 

• - FORT* 

OTO100 

1.}.1.1. 

01 

¡NEXT 



I i ’ > ! i 





i Í : 

i ! , 









i ' j | . Í 

l: 

1.20 LIME? 

[0., 

182).(255,191) 

5 4, BF 




.|.1 



[.1 








1: 

L30 ORAN' 

! Bí v 

120,182"SPRINT# 

1,"ABANDONAS (A) 

0 CONTINUAS 

(O " 

s rÍR 

I "NPÜf i 

fí) 

[si 

FR¿< 

>" 

. 

A' 

' ANDR^O'; 

'a' 

rAND'R'fC 

f:> 11 C " ANDR1K]> " c 11 THEN1130 


í 












1.j.í..|. 

l: 

L 40 iwm- 


\" O F*Ril> - 

f " a " THEN 1' 

000 r 














i.i.i.i. 

1: 

i 5Ó LIME \ 

;o ? 

(-182 ) - < 

255., 191) 

, 4, BF 

i 

| 


\ ..j.| 



i.| 







L.„.í.í..|. 

% : 

160 0GTO39C 

) 


s i ¡ | j | ¡ | | 


i 









... J 



i ¡ i 

1 V 

500 SCEEENOsWIDTH39 












.| 




ti 

510 LOCATE4 

ios pr 

!I NT "PARA 

EL. SI BU I ENTE PROGRAMA " : L0CATE4,12: PR 

I N“ 

r*F 

:, ULS f 

) F 

‘LA Y 

EN 

i í I • | 

!.;. 

EL CASSETTE 
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1520 CLGAi: 
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..j | i | | | i I 
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..*.| .?.| ?.f...t. 
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.4 

i 
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-.]. -f .i. 
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.7.1 

AMIGOS 

DEL MSX 

g 

."1. ~i 

i* ' r ■ i 

i r t 


1 1 


1 | ! 't .| 'T 

~Hrti.H4i 

i 1 i 



_...].1 





.4 


.| 


.I 

.N.^.|. 

| ! i 
í i ¡ 



. 1 . -■¡"TI 

r"'.i.f“.i.f 

i 

. 



i 1 
.r.| 



( 

.i 


• — i 

.i 



.|.f'4. 



















MONZA 

.^ . ■ . ; ..>. ;. i . 

1 O ÜOÜÜOOOOÜÜOÜÜOOOOOO 

20 OOÜO GODO 

30 0000 MONZA 0000 

40 0000 OOÜO 

j SO ooogoogooüoooogogoo 
60 

70 ? LUllf BANGUINO ARIAS 
80 

90 1986 

100 iOCtlODOOGOObODOíDOOO 
110 

120 COLOR 15, 1 13;,1 
130 SCREEN 3 
140 OPEN“BRPs 11 AS 1 

150 PSET ( 40, 80) , 12-: PR ± NT # 1, " MON¿A " 

160 POR: 1 = 1 TO 1500 
170 NEXT 
ISO GLOSE 
190 COLOR 1,4, 3 

200 BCFÍEEN 2, 2 : POR K=1 TO 2 s END$-~" M s POR 1 = 1 TO 32 s READ A* 
205 B*»B*+CHR* (VAL ( "&H"+Af> ) - NEXTsjSPRITÉ$ <K)=B$s NEXT 
210 OPEN ,, grps "ASI 

220 LIME; (0,0>.(255, 17) , 12,, BP 

230 LINE (0,175)-(255,192),12,BP 

240 PSET (75, 70) , 4s PRINT#1, “ I ! LISTOS ! ! " 

250 POR 1=1 TO 700:NEXT, 

260 LINE (75,70) •-•(225, 78) , 4, BP 

270 SO UN Di 6, 15 s SGUND 7,7 s SO UNO 8, 16 s SOUND 9, 16: SOUND 10, 16 
275 SOUND 11,0 :SOUND 1±,i6fSOUND 13,0 
280 K=127 


290 TIME=0 L 
300 B=289 




i 

! .L.i 

i 








. i . 


¡ . (.^ . f .j 


310 ON 

STRIGGGSUB 

580 











320 STRIG(CT) ON 
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r 


330 
: 340 
350 
360 
370 
380 
3390 
400 
410 
420 
430 
440 
450 
460 
470 
480 


I 


TI—TI ME/50 

L INE (J * 94)-4( J + 10 , 98 ) , i O ¡i BF 
L I NE (K, 94) - < K+10,98 ) , 10 j BF 
IF X<0 TiHEN X—O 
R=R+RNÍ> (1) f#i L 65 i 
T*T+RND < 1 ) * 1.63 
V—V+R N D(1>41«64 
IF X>230 THEN 590 
IF R>230 THEN PRfI- s SOTO 590 
PUTSPRI TE 1 ,(X,lOOlj i 5, 1 

,(X, 100) „ i, 2 
,(T,74), 13, 1 
, (T,74) ,J 1, 2 
, <V,34), 1Ó,1 

,(V,34), 1,2 

, (R, i4o>r r, 1 




i. 

1.f 

. !. 


PUTSPRITE 
PUTSPRITE 
PUTSPRITE 
PUTSPRITE 
PUTSPRITE 
PUTSPRITE 


: J. 


.....L.. 


. L 


•r.r.i. 

~ 4 ~ .I. 

...|..1.L .. 


! | 
I ! 


1 , 2 | 


490 PUTSPRITE 8 ,(R,T40)| 

500.; IF B=1 THEN 560. , 

51O LINE (J+1O,94)-(J+20,98),4,BF ; 
i 520 LINE (K+10,94)-<K+20^98)]4,BF 
530 S-G--» 4s IF G<-207 THEN 6=207 s GOTO 570 
;5404K*K-3sIF K<-10 THENK>255 
j 550 J¿J- 3 : IF J< -¡10 XHEÍM J-255 
560 GOTO 320 

570 LINE C238, 17 > ~ (242, 175) , 14, BF 3 B'3'i : GOTO 560 
580STRIGCCT)OFFsX=X+1:EÉTURN 
590 COLOR 1,14 
600 SOPEEN 1 
610 IF PR-1 T 
620 LOCATE 4, 

(630 IF PR—O 
640 LOCATE 4, 

650 LOCATE 0,1 





640 

INT"ENHORABUENA CAMPEON" 

650 

INT " LO SIENTO HAS PEROIDO " 

r iNT n T iempo del campeón- n 5 ti 5 "seg 

660 LOCATE 2,20sPRINT"OTRA PARTIDA SI 0 NO [S/N3"; 
670 Ai^lNKEYÍ 

HEN I— O 

4.h.j.-i.i.!.I.4.1.1.r.4.i-.4.H 


680 I=Hf 
690 VDP(7)—I 
7D0 IF M^'S" OR A.^—“s.". THEN OLEARxGQTO 190 
710 IF A$>-"n" OR A$= n N" THEN END 
720 GOTO670 

730 DATÁO,0,0,21,7F,FE,4C,B5,B5,4C,FE,7F,21,0,0,0,0 
PC,COjO i 

735 DATA 0,0,0,1E,1E,1E,O,O,O,0,0,O,0,0,1E,1E,1E,0, 
1E, O, O 



, 0,0 

0 , 0 ., 


,co 

1E, 


, F C ¡i 3 É , 
1E, 0,0, 




51,9F, 

4* <M--* 


9F ,51,3E, 
0,0,0,1E, 



T 


4-Ú_4 


■■.:. 


1987 - AMIGOS DEL MSX -11 



































MARATHON 


10 f0000000000000000000 
20 5 0000 0000 
30 "OOOO MARATON 0000 
40 ’0000 0000 
50 ■’ 0000000000000000000 

í60 ’ 

70 'LUIS SANGUINO ARIAS 
80 ’ 

90 F 1986 

100 ’000000000000000000 
110 

120 COLOR 15,12,1s KEY QFF 

130 SCREEN 3 

140 0PEN"6RP:"ASI 

150 PSET(25,80) ,12 sPRINT#1,"MARATON" 

160 POR 1=1 TO 1500 

170 NEXT 

180 GLOSE 

190 COLOR 1,7,1 

200 SCREEN 2, 2 


210 QPEN“qrp:"ASI 

230 FOR 1 K= 1 ^ TO * 5* :B$= " " : FORI = 1 TO 32 s READ A*: B*=B*+CHR* (VAL < " S<H "+A*> > ) : NEXT: SF'RIT 

E* (K)»B«sNEXT _ .. 

240 FOR K=6 TO 7 : B$=" " : F0RI=1TQ 8 ; READ A$: B$=B$+CHR$ (VAL ( "S<H"+A$) ) ; NEX í: SPRII E 

IK ) “B$: NFXT 

250 POR K=8 TO 9 : B$=" " 5 F0RI = 1T0 32 ; READ A$: B$=B$+CHF:$ (VAL ( "&H"+A$) ) : NEXTs SF'RIT 

Sóo'fOR^-'i^TO 11: " " ! FOR 1 = 1 TO 8 s READ A*¡ B*=B*+CHR* (VAL ( 11 &H“ + A$) ) : NEXT: SPRIT 

E* (K)=B*:NEXT 
270 6=260 

280 AA=4 sBA=8: C=5: D=9:E=6;F~10:SA=7s H=11 


300 G0SUB 500 
310 GIROLE(50,35),15,10 


320 PAINT(50,35),10 
330 LINE (O,80)-(255,17O),15,BF 



540 LINE (0,170)-(255,192 >,4,BF 
350 PSET (80,72) , 7-. F'RINTttl, " ! ! ! LISTO ! ! ! " 

360 FOR 1=1 TO 900:NEXT 

370 LI NE (75,70) - (225,78) , 7, BF ... . , k ,r, 

380 SOUND 6,15:S0UND 7,7:S0UND 8,16:S0UND 9,16:S0UND lü,16:S0UND 11,0 :oOUND lx. 


16: SOLIND. 13,0 
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390 K=127 
400 TIME—0 

410 0N STRISGOSUB 470 
420 STRIG(CT) ON 
430 TI=TIME/50 

440 LINE (J,177)-<J+10,181),10,BF: 

450 L.IME: (K, 177) - (K+ 10, 181) , 10, BF 

460 SOTO 460 

470 STRIB <CT) OFF 

480 X = X +1 

490 IF X >215 THEN 730 
500 PUTSPRITE 1 , (X+10, 145) , 1, 1 

510 PUTSPRITE 2 ,(X+10,145), 10, 3 

520 PUTSPRITE 3 , (X+9, 159),4, BA 
530 PUTSPRITE 4 ,(X+10,145),6, 2 
540 PUTSPRITE 5 ,í (X+9, 158) , 10, D 

550 PUTSPRITE 6 ,<X+X2,YZ>, 1, F 

560 PUTSPRITE 7 ,(X+X4,Y4), 1, H 

570 IF RR=0 THEN RR=1 s RETtJRN 
580 IF B=1 THEN 670 

590 L_IME íJ +10, 177).€ J +20, 181) ,4, BF 

600 L.INE (K+10, 177) — (K+20, 181) , 4, BF 
610 IF 8)255 THEN 640 
620 LIMEIS,100)-(G+2,170),10,BF 
630 LINE < 6+2, 110) - (6+4, 170) , .15, BF 

640 G=G.i 4i IF G<=*215 THEN 6=215 ¡GOTO 720 

650k=K-3:IF KX-IO THEN K=255 
660 J=0-6s IF J<-10 THEN J--255 
670 SWAP AA,BAsSWAP C,D 
680 SWAP E,Fs SWAP BA,H 
690 SWAP XI,X2sSWAP Y1,Y2 
700 SWAP:X3,X4:SWAP Y3,Y4 
710 BOTO 410 

720 PSET(6+7,103), 1:PRINT#1,"META" :LINE <238, 170)-(242, 192), 14,BF;B=1!GOTO 420 
730 COLOR 1,14 
740 SCREEN 1 

750 LOCATE 0,6¡PRI NT"TU TIEMPO EN LLEGAR A LA META" 

760 LOCATE 2,1OíPRINT"HA SIDO =";TI; "SEGUNDOS" 

7 70 LOCATE 2,20s PRINT"OTRA PARTIDA SI O NO CS/NII" 

780 A*=INKEY* 

790 I=1+ i: IFí>13 THEN I=0 
800 VDP(7)=1 

810 IF Aé=“S" OR A*="s" THEN -OLEAR:GOTO190 
¡820 IF A«»="n" OR A$="N" THEN END 
830 GOTO 780 

840 DATA3,7,6,6,2,O,O,O,O,O,O,O,O,O, ,O,CO,EO,80,O,O,O,O,O,O,O,O,O,O,O,O,O 

850 DATAD,0,0,O,O,O,3,7,6,6,6,6,7,7,7,3,0,0,O,O,O,O,80,CO,40,40,O,0,CO,CO,80,O 
860 DATAD,©, 1, 1, 1,1, 1 ,D,1,1, 1 , 1,O,O,O,O,0,0,40,eO,cO,80,0,0,80,80,Fe,Fe,6,0,0,O 
¡870 DATA1,3,7,7,3,O,O,O,O,O,O,O,O,O,O,O,CO,EO,FO,70,60,O,0,0,0,0,0,O,O,O,O,O,O,O 
, ü, O, C, E* fc, FC, f"8, O, O, U, O, O, U, U, U, O, U, U, 0, 78, *->c , le?, C, C, C, C, C, C, O, Os GÜ ! O 43() 

880 DATA7,7,6,6,4,0,0,0,30,3C,3E,O, O,O, O,O 

890 DATA3,7,F,F,F,8,0,0,0,O,O,O,O, O,O,O,CO, CO, EO, FO, CO, O,O, 0,0,0,0, O, O, O,O, O, O, O 
i, Oí, 0,0, 7,7,7,7,7, É, 1C, 1®, 30, 60,40, O, O, O, O, 30,78,-3C, 1C, 38,70,60, CO, 0,0,0,0 
900 DATA6,C,E,7,0,0,0, 0,1,7,6,3, 3,O,O,O 
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ATAQUE 


•' 0000000000000000000 
O 00 Ó 0000 

888 ATAQUE 8888 

OOOÜOOGÜGÜÜOOOÜOOO 

UI NO AR X Pié 

1986 

oDGüOüüüüoooüüüoaq 


1 10 
.120 
430 
140 
150 
160 
1170 
180 
190 
200 
2 10 
220 
230 
..¡240... 
250 
260 
270 
280 
290 
oo 
!310 
320 
330 
¡340 
350 
.360 
370 
0380 
390 
400 
410 
420 


COLOR 1,4 H 6 

¡KE¡Y QFF ; COLOR 15, 1, 1 

ScNeEN 2,3 

W#i 

GOBUB 390 T 
|QPÍEN' ,, GRF:"AS#! 

RUT SPEITE 1, <83,76) ,10, 1 

pskl < 14.0 i 90) SPRINT#! , "A JAQUEA" 

LINE <15,178)-<240, 192),3,BF 

PSETk25, 181) i PRI NT#1, "LUIS SANGO INO ARI AS - 1986" 
ÍFORI =1 1 TÉ SOO s Á -'$■+•1 i DOLOR A~ 1, A+1, A 
TF • A > 1 3 'THEN A* i 

NEXT.. .. . 

CLfes GLOSE 
COLOR 15,1,1 
SCREEN 1 

LOCATE 3, 10 2 PR I NT “ JOYST 1 Cl< O CURSOR t J/C3 U 
bW^INKEY* 

OR xi-.V.J'i THEN CT""Í 2 GOTO 360 


I F X&= : 


IF X "C 11 ÜR X$- : -”c '! THEN C 7 j= 0 i: GOTO 360 
R=R +1 ; 

IF R> 14 ‘THEN R ~1 

VDP < 7 > ”R. 

GOTO 290 
DREN"GRP2 “AS 1 
SOPEEN 2,2 
RECTORE 

e oM f I.i 

H~RNb(-TIME) 

POR Iwajl tro 260 

ca=ca+ 1 sIF CO> 15 TREN C 0=2 
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43O BU- I NT CRND CU * 192) 

440 PSE:T fW* K) , GQ 
450 NEX'i" 

460 POR K~ : 1 TO 2 :: B.*= " " s FORI= i TO 
E* <K>*B*:NEXT 

470 IF W== 1 THE N W=2s RETURN 

480 SPEITE UN 

490 DN SFEITÉ tíOSUB750 

500 X ::: -125 

510 GOSUB 710 

520 Y 1 =Y 1 +9 : Y2—Y2 +8 s Y3¿=Y3+9 s YB~“Y 8-+-10 
530 Y 44 Y4-t--9 x Y5=4'Y5+8x Y6=*Y6+9; Y7=V7t 10 


4_i.L.[.i.[.4.J:...i.. 

s READ A$x BiMB*+dHR*( 


540 F'UTSPR I TE 1 
550 GOSUB 660 
560 PUTSPRITE 2 

(X i 75U.KP ■) u j o , 

1 

i] i A sf 4. / w r ; * vi \ / h Ji V j 


,( 5+AL, Y1 ) , 2 

, 2 

570 PUTSPRI TE 3 

■,<40+ AL, Y2 ) , < 

571 2 

580PUTSPRIT E 4 

„ ( 80+AL, Y3>, • 

n i 2 

590 PUTSPRITE 5 

1,(115+AL, Y4) , 

3,.2 

600PUTSPRITE fe 

. . < 150+AL, Y5 ), 

13, 2 

610 PUTSPRITE 7 

• ,( 1 85+AL , Y 6 ), 

7 í 

620 PUTSPRITÉ E 

' . ( 720+'/AL, Y / I , 


630 PUTSPRITE 4 

1 , ( 2 50+ AL., Y 8 ) , 

1 i©, r : 


640 
650 
660 
670 
680 
690 
ZOO 
7 10 
720 
730 
740 
7 50 
760 
'770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
9 ;¡. O 

Ú20 

930 

940 


IF i 


Y2> í 9 
GUIU 52o 
*$T ICK (CT) 
D¿3 THEN 
D : :: 7 THEÑ 
RR4i60 


"IT 1**1 EN GOSUB 710 


0 = 

1 F 
l F 

4 F : 

RETURN 

AL=INT (RND CU#25) 

; Y2 O « FR HK+6 ¡; Yo ; .16 


X-I-6NÜD256 
X ; ::-X--6Í v tDD 256 
THEN EX = 1:BOTO 880 


?I %4 s Y3=~16: Y4«-% 

RE+URN 

SOtJND 8,8 

FÜR Z” ::: 0 t ü :256 

sound o; z 

NEXT 

8QUND .8,0. 

S0UND77 
POR 15 T O 

COLOR,,15.2 

PLHS FRITE 1 
SOUND ÚnZ 
POR T— 1 TO 80 
NEXT 
NEXT 
COLOR1 
IF E X ::::: 1 
LOCATE 
LOCATE 


íx Yi5=F9Í: Y6^0 x Y7="<p 


O ST'EF .1 


(■ X „ 175-RR ) , Z , 1 


14,1 2 :8CREEN 
THEN 930 
1 ,5 SPRINT"LO 
1,10 SPRINT"HAS 
ÍF EX=0 THEN 940 

LOCATE O, 7 s: PR 1 NT "ENHORABUENA LO CONSEGUI STES" 
LOCATE 1,20 SPRINT" OTRA PARTIDA SI O NO CS/N3 


SIENTO HAS SIDO DESTRUIDO" 
RECORRIDO" 5 RR* 10000;"KM" 






1 j 


















¡ 








VAL ( 1 


ilj 

IEX 

:t s 

SPR IT 










¡ 
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1 - AMIUUS UcL 

fMC 

ÍX- 

1 5 































f • ■ 



























































9 bu 
960 

QÍA 

X3 
I! : 

• > 

" > 

m 

v$ : ": 

:em* 

•"Ñ"ÜR i 

: " c= »» HP 

x$ 

::s “ 

uu: 11 

n ” 
o«» 




980 Sí 

m 

3 9 

”50 

, 


1 .i 

o 




990 

DATA 1 ,| 

1, 

i . i 

~r i 

* •’ 3 

S 3 

D,¡ 

i 

1E 

3 •' 




D6 

M 

>8. 

7Í 

A 94, 

c7 

44 

,6C, 

54 




O; 

‘ ,J 3 

U 












. 
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y 6 
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X- 

1987 

















































































































1 HEN 

THEN f 

-NU 

2 LEARs 

ggtc: 



























. ...1 

1 .L. 




:.| 




,3 

,7 

D 

ID, 1 

.B, 

16, í 

■E, 

29 

3 

[o. 

80 

,»80 ,j 

co 

5 A' 

h } 

BOi 

i : 

, 78, í 

:::o, 

:CC 

UB 

:o 3 

BQ 

i. 3B8» 


7 

, 28 

10, 1 

.0, 

10, c 

),c 

' ? c 

9. Cj 

[*0 

? 0 

3° 

,0 

3° 

, 0 

,0 

3 0 , 

.0,0, 

. o, 

O 

0, 

0 3 

0, 

0, 

0,, 





























































































































































































































































































































































































































































































































































































































































































































X 1 




















\\ 










































/Á 




grrc; 

C.V 

j, 

















.f 


17 I-"l 

a 
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-hv-au 

J: r- 



















































































































































































































































































































































































































































































ESQUI 


1U : MjaOüüOOOGOOOOOGÜOpO 
20 0000 i 0000 

30 :! 0000 SKY 0000 

i 40 r: ‘ oodo 0000 

50 0000000000000000000 

60 .¡2 

70 LUIS SANGUINO ARIAS 
80 

90 ? 1986 

1 00 '■ 0000000000000000000 


1 10 
120 
1 30 
140 
1 50 
160 
1 70 
180 
190 
200 


COLOR 10 ,, 2 ,.l 
S CREEN 3 
OREN " 8RF‘ s " AS# 1 


PSET(45,80) 3 
FiOR ¥»1 TG 1 


>í PRINTtt", 
500 s IMEXT 


SKY' 


GLOSE 

COLOR 1,14 
SOPEEN 1 

LOCATE 3 5 lOs PRINT'LJOTSTICK 0 CURSOR-CJ/O 1 


CT=1s G0T0270 


210 X!$6 

INKEY$ 

. j 


,.220, XhJí 

-f- i » i Fi Y i: 

3 THEM Til 

230 VDP 

(7) = I 

! \ i j 


240 IF 

X^ n J u OR 

X$=í' j " t'HEN l 

250 IF 1 

X*=" c"ÜR 

X#=Í T CT THEN 1 

260 GOTO 210 



rru iaP. i.. i 

1 2hGRFFN 

7 i 7 

280 POR 

: K«i TO \ 

— - r- - * . ? 

5 sBp~}‘ " s FORI 

Et$ (K)H 

|b$s nex.t 



290 L.INE (0,0) - 

(40,192)¿ 

¿ 1 BF 

300 CINE (210,0 

).(256 ,V 

92 ) 9 1 

310 X=1 

20 2 Y—O s Fj 

I ::; “;1 


370 TIME60 



330 YB :::: 

USO 



340 BOSUB é|90 




üKEY OFF 
UTO 32 2 READ 


,BF 


A*sB*^B*H4>IR* (VAL ( "&H"4A$) ) 2 NEX.Ts SPRIT 


SPRITE BOSUB 
Y1 "i"2 2 YB ~ YB •'•4 


350 ON 
360 Y 1 •• 

370 Y" ::: Y 1HOD 192 
380FF« YB+R 
390 XP=XB--30 
400 xa4xb+6o”! 


640:SPRITE ON 
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410 TfTIME/50 













■ • v J. r Tf itilI'I rr'-zyT 

a. piitpppttp i ¿y v v i. pt 
















440 IF 1 

<P< 50 THEM XP—XB+SO 

















450 PUTSPRITE 2 

, ( XP, FF—20) , 12 

H 

















460 IF } 

< ATI 85 THEN XA^XE 

;.5u 


















‘ i- / V J. r A M — A r“ I n L“. i N *fr 7 U 

¿i-PO PiITPPP T Ti™ P i Y A VR+™ 

:0> , 12,2 
4,3 

















490 PUTSPRITE 3< 

; (XB, YB> , 


















500 PUTSPRITE ój 

(XChFF), 

4,3 

















5;10 GOSUB 56U 
520 PUTSPRITE 4, 

sKn 1 pifTPPPTTF- i 

< XB+35, V 

7 ( yp+Tq 

”8+20) , 6, 
1, FF+20) , 















A. 3. 
















540 IF " 

¡">100 THEIM 740 

— ? — 















550 GQTt 

2 360 













i 560 D—ST I Cl< ; (CT) 

FI ::::: 5 5 )< : ™X 

j P T 1 » Y V 












D /U .1. r i 
i 530 IF í 
590 IF ! 

7-Z ! Me.N 

D=7- TI-IEN 
/B+E-10< ú 

+ 4 

1 . n. 













) THEN GOSUB 690 : 











600 SFRITE 0N 
















610 IF : 

K >XC AND 

X+16< XC+ 

[35 AND Y] 

l+16>FF; AND Y<FF+36 

AND 

AND 

F i 

•*/ 

•4 

THEN 

; Pp-| 

PU+5í 

b. : 




; *5 20 i i - x > x b and 
o ir tí idm 

X + 1 6x H t- 3p RNü Y1+ 1 6 2 Y B AIMU Y < YB+6 

F .1. 

H- ! Ht-rM rU r l 

ruj 

+ Oí 




640; F¡I=Í 






















1 650 SPRITE OFF 





















660: t;i=] 

r i +1 o 

















r 6/u btcLf 
¿bAÍ ob-ri traki 


1 ! J ! 1 



















690 XB~! 

I NT(RND(1)*100)+50 

















700 xc--: 

INT(RMDCL) *100) +50 















710 R~INT <RND<1)*60> +50 














/ O Y B ::::: i 

193 



















/ tac. i üniM 

j 740 COLOR 1 , l..§, i 

L; SCREEN 

1 


















750 LOCATE 2, 5 s F 

-•RI NT " HAS 

i TERMINADO TU PRUEBA" 
















760 T|I=| 

•¡•• + TI 












770 LOCATE PKTN I " 1 Ic|nKO ; l i 5 

........ .. . ................ .. : nr, v i v i T 11 ni iiviTnD.HDI t 

" btb 












/ Cj v Lüwn 1 C ¡i T J. i 

790 LOCATE 2, 18; 
i 800 g4 ::::: ]I NKEVT» 

¡ r n . 1 .ti i r un i lio- i 

¡PEI NT *! OTRA.PART IDA] SI D 1 

NO IS/N] ' 

i 









810 IF i 

3*4"S" Oí 

R (3*4 "i" 

THEN OLEAR sGOTO 

27 o 











;820 IF ¡ 
330 COTI 
840 DATi 
4 D2 „ 6 1 

3:ii^ n n n 0I : 

□ 800 j 

A 1,2,2,: 

R (3$ :: +'N" 

I FIEN LNJJ 












i 


i.i 




1,7, ¡ ::: ‘ u 1 Bu 

i 3.1.., 33,;22 

if 

L 22„22 L 23-22.4. 

i 9, 

, o( 

i) a 40 a 

4C 

) a 80 a 

i'" 

EO 

a FO a 

D8 

a 8C - 1 

be 

a 48 a 


, 40 , 80 , 0 . 

, 0 ¡ 1 ¡ 0 , 7 ¡i 

,0, i. F , 3f- 

,0,0,0; 

, 0 ; 

• o > 

,30,CO, 

80, FIO, 

F8 

,80, 

F8 

,FI 

3, i 

30j 

[ t 


¡ FE!, 00,1 

30,CO,CO 

icé,ÍFJIF 

> IF, IF, lf, lo;, 10, 

1 0,10,10. 

i i i 

>, io, 

1C 

), 10, 

0 , 

0 , 

B, 

F8 

,F8 






850 DATAF'8 , F8 , F! 
| £0, 10,8*, 1C, 32,6: 
860 DA i ó 1 , 3 . 

870 DATA feo,40,* 

B , 8,8 , é , E 

1. H CO , 80 q E 

i. , 7, F, I B , 
0 N 80 , EO h 

i i, 8 „ 8 ,8 , 8 

)E , DF , E E1 , 
31,33,12 
FO , D 3 h ’dC 

,8,U,U,U,7F,2,: 
81;,41,41,81 
,22,4b,86,2,1 ,< 
s CC , 44 , 44 , 44 ¡i CO 


•i, 1 

L 2,22 


■ t, 

B 1 , 1 

2 , 2 , 

p-,7, 

J. ,. 

2,: 

,3 

I.,- 

1, 

TO 

h á ; 


,20,/= 

} o, 

1#. 

7, 

F,., 

IB 

33 . 

, i: 


,22,413,: 

6*5 h 2 , i ¡i U * 
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DEFENDER 


io 3 0000000000000000000 

20 3 0000 ÜOOÜ 

30 3 0000 DEFENDER OOÜÜ 
40 *ÜOOÜ 0000 


60 3 

70 'LUÍ 
80 3 






























IS Sí 

ENGUIÑO f 

m 

AS 


















































90 3 1986 

100 3 ÜÜOÜÜÜOÜÜÜÜÜÜÜÜÜÜOÜ 

k 10 3 

120 COLOR 15* 1, 10 

130 SCREEN 3 

140 OREN “GRP : “AS#! 

150 PSET (5,80) j 6s PRINT# 1 3 “DEFENDER 11 

160 POR Y==l TO 1500 g NEXT 

170 GLOSE 

180 COLOR 1,14 

190 SCREEN IsKEY OFF 

200 LOCATE 3, 10 : PRI NT "JOTSTICK O CURSORfCJ7C3- 1 
210-X*=1NKEY¿ 

220 I =jl +.l s IFI > 13 THEN I = 1 


230 

240 

250 

260 

270 

280 

290 


MDP(7)fI 


IF X$=“ J “ OR X$=“j" 

IF X$==“c:“OR X$== ,, C" TH 
GOTO 210 

COLOR 15,1,10sSCREEN O 
OREN"GRPs“AS#1 
SCREEN 2, 2 sF0RJk=| 1 TO 3 
> ')¡s NEXT : SPRITE$ <K) =B*: NEXT 
300 YlMOs■ Y2=40:Y3=70sY4=T00s Y 
310 A—fe; B==6 s GS=6 s Y ===90 
320 TIME=0 
330 GOSLJB 700 
340 ÜN SPRI TE GOSUB 470 


THEN CT=1:G0T0270 
ENCT=0!GOTO270 


s B$==“ “ : FORI 
5=130: Y6 =•= 


= 1 TO 


s READ A$ : B^===B ; $+CHR$ (VAL < " &H " +A$ 


160 
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350 XM=XM-8 

360 PUTSPRITE 2 , < 50, Y> ,A ,2 

370 PUTSF'RITE 3 , ( XM, YM> , 3-, 3 | 

380 BOSIJB 430 

390 IF TIME>3000 THEN FI = 1 sBOTO 770 

400 TF XM<~16 THEN XM=256:PA=PA+1: BOSUB 510 

410 SWAP A, B 

420 GOTO 350 

430 D=STICK (CT) 

440 IF D=1 THEN Y=Y~5 

450 IF D=5 THEN V=Y+5 

460 RETURN 
470 SPRITE OFF 


L. j_ . i . J 

J.1 

. i .;. 1 

i j 

i 1 j j 

. !.1 

r i.i ! 

] | ! i 

■ ! 1 
.j.i 




j j 


480 IF XM >=46 THEN YM==209 5 XM=256: BEEP: PU=PU+50: L. I NE < 70, 1801 - (180, 192) , 3 
T(75„182),3:PRINT#1,"PUNTOS-";PU:GOTO 500 
' <21 THEN 60SÜB 610 


.f 


490 IF XM 
500 RETURN 

510 CY=I NT(RND (1)* 6) +1 

520 JF PA >50 THEN 770 
530 SPRITE ON 
540 IF CY=1 THEN YM-15 
■ 550 IF CY=2 THEN YM=45 
560 IF GY=3 THEN YM--75 
570 IF CY=4 THEN YM=105 
580 IF CY=5 THEN YM=135 
590 IF CY—6 THEN YM=165 
600 RETURN 

610 IF CY=1 THEN Y1=209 
620 IF GY--2 THEN Y2=209 
630 IF CY=3 THEN Y3=209 
640 IF CY==4 THEN Y4=209 
650 IF CY=5 THEN Y5=209 
660 IF CY-6 THEN Y6=209 
670 BOSUB 700 

680 BS=BS~-1; IF 85=0 THEN 770 
690 RETURN 
700 PUTSPRITE 1 
710 PUTSPRJ 

?38 RffPPI 

740 PUTSPR] 

750PUTSPR] 

760 RETURN 

770 COLOR 10,1,3s SCREEN 1 

780 IF FI=1 THEN LOCATE 2,5sPRINT"ENHORABUENA CAMPEON":GOTO 300 
790 LOCATE 2, 5: PRINT"EL. ENEMIGO TE HA VENCIDO" 

800 LOCATE 2, 9: PR I NT " MI SI LES LANZADOS =";F'A 
810 LOGATE 2, 13:PRINT"PUNTOS CONSEGUIDOS=”;PU 

820 LOCATE 2,20:PRINT" OTRA PARTIDA CS/N3 
830 X$=1NKEY¿ 

840 ÍF‘x*="S“ OR X$="s" THEN OLEAR :SOTO10 
850 IF XS="n" OR X$="N" THEN SCREEN O:END 
860 GOTO 830 

870 DA IAF,1F,3F,7F,44,DD,DD,D4,D5,D5,C5, 7F, 19, .31,61, C1, EU, Fp ,F8,FG,44,5E,! 
6,76,46, FC, 30, 18, C, 6, 5, 5, 2, 1, 1, O, O, O, O, O, O, 1, 1,2,5,5, 40,60, BO, 50, 58, A8,AC, 
AC,A8,58,50,BO,60,40,O,O,3F,FF,3F,O,O,O,O,O,O,O,O,O,O,O,F,3E 
880 DATAFC,F8,FC,3E,F,O,O,O,O,O,O,O,O,O:BOTO StíO 



(5, Y 1 ) ? 

15, 

ü 

<5,Y2T P 

14, 

|. 

i S 

U 

ll:M: 


.H 

(5 h Y 5) 3 

13, 

3 

<5,Y6)y 

4, 1 


I .1.! .i....i 




1 

¡.. i i | 

i 


í 


.JL 

fi 

í- ' í 

i 

...I. 




. 1 

\~ .i 







: ! 1 



i 

,9> 

- ) ? 

..3,1: 

¡.“““1 

I.i 

1 

i_i 


| ; 

I 

í 

I < j 

{. \ 

;.I 

i 



1 

.f 

1 

L.j 





.i 


.. f 

1 

i 

1. 

u . 

.i 

h.i - 

.j. 

■j 

r^- 

|. 


: ; 

: 



k. : 

. ¡ 

r.| 

;. I 

¡ . 

1 


i ¡ 

1 1. 

1 

I 


1. 

[.T 

1 

1.1. 

r 


! i 

j 1 


1. 


1 

| | 

t .f 

I j- 

1 . 


1 

í 

i....1 

0, 1 
58 ¡ 

¡ i 

*4,5E 

tA8 

L, 5 

i ;. 

l , 














f. |.[ 1 


t.¡..}.i 



í i 


L,.. 



? 

1. i 





.J 



i. .i 












BF:PSE 







.I.J 




f ¡ i i 1 

!.J.LI.i 

i ! 

1 i 


i 




1 "] 
¡ 






T" . ; 




1 


i 


\ 

1 

i. 



. 



| 




j. 

1 •. 


1 





i. 


1._ 


[ 



! 

; 


1. 


1. 



i.. 

i. 

\ 



r.. 


I i.i | | 

i 

i 



I. 
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RALLY 


i o ’ OOOOOOOOOOCiOOOOOOOQ 

20 ■’ 0000 0000 

i 30 •’ 0000 RALLY 0000 

40 ’0000 0000 

50 ’0000000000000000000 
60 ’ 

: 70 ’CUSENIO 8 ARRIDO GOMEZ 

80 ? 

90 ’ 1906 

100 0000000000000000000 
1 10 ’ 

120 RESTORE :COLOR 3 , 6,10 
130 SCREEN 3 
140 OPEN"GRF's "AS #1 
150 PSET ( 30 , 80 ) 1 , 6 : PRINT# 1 , 

160 POR Y —1 TO ISOOsNEXT 
170 GLOSE 
180 COLOR 1,14 
190 SCREEN 1 

200 LOCATE 3,1O:PRINT"JOTSTIck O CURSORCJ 
210 X*=INKEY* 1 
220 1 = 1 + 1 : IF 1 > 13 TREN X = 1 
; 230 VDP < 7 ) == I 

IF X*="J M OR X$=="j" THEN CT =1 s 0 QTO 27 O 
IF X$="e"OR X$="C" THEN CT= 0 : 60 T 027 O 


RALLY 


/CJ 


240 

250 


260 GOTO 
270 NI =9 


’IO 


280 SCREEN 1 , 2 ; COLOR 15,4 , 1 : A*”” |I 


tr¬ 


epo VF'OKE 8192+26, 10 5 VPQKE8 1 92+2 , 

300 GÓSÜB 520: BOSUB SOOsGOSUB 640:Pü=4:KL=80:C0=1 


tm- 


310 KEY OFF 
320 IF C0=1 THEN A=II' 
330 IF A>=0AND A<10 1 
340 IF AMO AND A<20 


¿RNT1 ) *70) PI SE A“ n 40 



EN PÜ=PO+ 

1 



r.r.T 


HEN PO=PO 

-i; 







































































1987 
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• J • 




















■”+—i— 


350 

IF POCO THEN PO^O | 


360 

if.f : 

: ‘Ü*NI > 32 

THEN P0=: 

32- 

370 

IF h 

41 <3 THEN 

1 CG—O 


380 

DIB-- 

ISllGKCCT 

) 

I 1 

390 

IF” I 

) IS—7 THE 

IF! KLpKL-i 

E3 

400 

IF I 

)I S—3 THEN jKLMKL+¡ 

B.| 

4 i 0 

IF. f 

^40AND E 

0^20 THEN 

420 

IF £ 

JCR=40 THEN PLAY". 

ac 1 

430 

LOCATE 4, 22 s 

PRINTA$ 


440 

LOCATE PO „ 22 

:s PRINTB* 


450 

LOCATE 0 H 23s 

PR I NT 


460 

i" u I 

¡ arK i 1 fc. (J 

U (KL 3 20) 

? T1 

470 

HJ-= 1 

:NT(KL/8) 

•1-6240 

L.i- 


"T- 


N I=N I-1: GOSUB SOO: SCR=0 


480 IF VF'EEK (HJ ) < >32 THEN GOTO 650 
490 SCR=SCR+1;GOTO 320 
500 B*="| "+SPACE*(NI> + " J" 

510 RETURN 

: 520 POR K+l TO 3 !C*= 4,fl : FORTUITO 32 ¡CREAD H*:C*=C*+CHR* (VAL ( "ÍH«+H*> ) íNEXTsSPRTT' 
JE* <K)*C*sNEXT 

530 DATA 3 A, 3 B, 3 F, 3 A, 37 , 6 , 6 , 7 , 5 , 6 * 7 , 2 , 16 ,ÍF,IB, 1 , 5 C„DC,FC, 5 C,EC, 60 , 60 ,EO,AO, 60 , EO 
, 40 ,DS,F 8 ,D 8 , 80 , 0 , 0 , 0 , 1 , 8 , 24 , 25 , 93 , 4 E, 2 A, 9 D, 62 ,AC, 6 B,BE,DB,O,O,O„O„ 90 ,A 4 „ 24 , C 9 , F 
2 ,B 4 , 29 ,DE, 35 ,AA,DF,A 9 ,O, 0 , 0 , 0 , 0 , 0 , 3 D, 45 , 45 ,CD,FD,FD,FF,CF, 48 , 30 , O,O 
;540 DATAO, 0 , 0 ,FF,FF,F 7 ,E 3 ,F 7 ,FF,FF,FF,F 2 „D 2,0 
550 RETURN 
560 FOR 14 = 1 TO 20 
570 LOCATE O, 22 :PRINTA* f 
580 LOCATE PO, 22 ;PRINTB* 

590 LOCATE 0,23:PRINT *. 

600 NEXT N 

610 LOCATE PO ,22: PR I NT " | META i" 

620 FOR IM-1 TO 4: LOCATE O, 23; PRI NT: NEXT Ñ 
630 FOR N=1TO 200:MEXTNsGOTO 10 
640!CLSt FOR N=r TO 22:PRINT 
650 GOSUB 680:RUT SPRITE 


NT"44 i.|| «44-44.1-4.1-4444+" s NEXT N: F 

O, (KL,209) : FOR N«1 ™tÓ¿Ó: Fk'jt' á^álTE 1, (KL, 


RETURN 
20),9,2:VPOKE 


8192+26,6:FOR M=1T020:NEXTMsVPOKE 8192+26,10;RUT SPRITE1,(KL,20),1,2aNEXT NsGOSU 
B 690 

660 PLAY"ADADADADADADADAD":FOR N=255 TO O STEP-Í:PUT SPRITE 2, <N,20),6,3:FOR M=1 
TO 10:NEXT M:NEXT N 

670 SCREEN1:LOCATEOí, 10:PRTNT"LO SIENTO TE HAS ESTRELLADO"; FOR N=1 TO sdoÓ: NEXTN 
: GOTO 10 

680 SOUND . 6 , &HF: S0UND7, ?<H7: S0UND8, 24110: S0UND9, «4410: S0UND10, «4410: S0UND12, «4140; BOU 
ND 13, «440; RETURN 

690 FOR N=0 TO 13:S0ÜNDN70:NEXTN;RÉTORN 


4 - 
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A _ 1 


























SIETE Y MEDIA 

10 ICE Y QFFsWIDTH 39 ¡COLOR 15» 4,4 5 SCREEN O 

20 INPUT "Como te 1 lamas"5 

30 II-' LEN (NIO >10 BOTO 20 

40 OREN "BRP:"AS#1 

-50 SGREÉN2: DOLOR 15,, 12, 13s CLS 

ÓO C~INT (RND ( -TIME) *2) s DIM A« (9) , B* (4) , C* (9,3) 

70 DATA A, 2,3,4,15„6,17, J ,, Q, i<, E, F, C, D 

80 FÜR 1=0 TO 9: RÉAD ASí ( I) ; NEXT.1; FOR 1=0 TO 3:READ B*(I) : NEXTI 

90 PA=1: H=0: S=Os IH==8s l : S=fer!TSpO|; TH=ps ERASE C*:DIM C$ <9,3) 

100 El NÉ (O, O):-■ 4255,9) „ 1, BF: DRAW4BM6, 1 " n PRIMT #1," # 7 y media # 0. Suárei 1985" 

1 i O L i ME (0,24).(72,33 > » 1 , BF: DRAW'BM 1,25 " i PRI NT# 1 , " ORDENADOR " : LINE ( 120, 24) - (180 

, 33) „ 1 , BF: DRAM"BM120,25"i: PRINT# 1 , PS 

120' LIME (0,96) - (LEN (N*) *8, 105) , 1 BF s DRAM "BM 1,97 " : PR I NT# 1, N$ : LI NEld 20, 96) - ( 180, 1 
05) , 1 , BF; DRAW"BM 120,;97" :IPRTNT#1 ,f'W: 

130: LIMÉ(O,40)-(255,88), 12,BF;LIIME(O,112)-(255,160) ,12,BF 

140 X=8:Y=40sBOSUB 90005iY=112:60SUB 9000 

150 1F C=1 BOTO 1000 

160 1F H=I GOTO 5000 

170 H=í 

ISO BOSUB 9030 
190 BOSUB 9050 
195 CH=CO:XH*XX : YH=YY 

200 Y=112:X=IHs BOSUB 9000:BOSUB 9100 
210 IF XX<8 TREN 00=X X s GOTO 230 ; 

220 0(3=15 

230 IF TH+OO>7.5 THEN BOSUB 9090:PA=0:GOTO 5000 
.240 BOSUB 9040 

250 Z*»INKEY*: IF Z*4"" OR (Z*OM" AND Z*<>"2") B0T0250 

260 IF Z«="2" THEN PA=1:G0T05000O 

270 TH-'-TH+OO: BOSUB 9200: 11+= IFH-24: GOTO 190 

1000 IF S=1 BOTO 5000 

1010 3=1:BOSUB 9020 

1020 BOSUB 9050 

1025 PS*C0s XS4 X XsYS=YY 

1030 ¥-40:X=IS:BOSUB 9000 

1040 IF XX<8 THEN TS=TS+XX:GOTO 1060 

1050 TSrTS+tb 

1060 IF TS>7»5 THEN BOSUB 9140:BOSUB 9200:BOTO 5000 
1065 IF T5=„5 BOTO 40001 
1070 IF PA==0 GOTO 1110 
1080 IF D--1 GOTO 1 1OQ . 

1090 IF TH>TS OR (TH=TS AND OO) GOTO 4000 

1095 IF TH=TS AND OI BOTO 1110 

1096 BOTO 1120 

1100 IF RND(.TIME)>.2 GOTO 1120 

1110 GOSUB 9300:GOTO5000 

1120 IF; TS>6.5 GOTO 1110 . . .1. 
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I . . .. I i , , 

1130 IF TS>5.5 AND RND(-TIME)>.1 GOTO 1110 
1140 IF TS>5.5 GOTO 4000 

1150 IF‘TS>5 AND RND(~TIMEHH. 2 GOTO 11 iO 
1160 IFiTS>5 GOTO 4000 

1170 IF TS>4 AND RND(-TIME)>.4 GOTO 1110 i 
USO IF TS>4 GOTO 4000 

1190 IF TS>2 AND RND(-TIME)>.6 GOTO 1110 
1200 IF T8>2 GOTO 4000 

1240 IF TS<=2 AND RND (-TIME) >.8 GOTO- 1110 
4000 GOSUB 9200 ; I S= 1S+24 s GOTO 1020 
50U0 IF U GÜ I Ü 16 O 
5 010 í! ::: ‘ 8O GOTO. 1O O O 

5520 Y“ ::: 40 2 X — ISs GÜ^CSs XX-X8s YY^YSs G0SUB9200 
503€> y=i 123 Xí I--I¿cd—OHx X-Xfx!h s YYNYHs GOBUB 9200 
5040 í F PA- :: 0 AND TS >7.. 5 GOTO 90 
5050 0 ! *í t O Si )TÜ 6000 

5055 Ir TS>7«5 GOTO 7000 
5060 IF' TS>TH+*ÜO GOTO 6000 
: 5070 IF TS-TH+OO AND C=1 GÜTÜ6000- 
5080 GOTO 7000 

6000 GÜSUB 93 10 i PS—P8*TS s GÜTÜ 8000: 

7000 GÜSUB 93202PH-RH+TH+OO 'i 

aboO GÜSUB 9010 ;BEEP: DRAW'BM 4,176 Cl":PRINT#1," C11 OTRA MANO C23 OTRO PROGRAMA" 
8010 Z*»INKÉY*s IF Z*="" OR <Z*«>'*4" AND Z*< >"2") GOTO 8010 
! SG29 IF Z$="2" THEN COLOR 15, 4,4¡; SOPEENOS L.0CATE4, 10: RRINT"PARA EL SIGUIENTE PROG 
RAMA"sLOCATE 4,12:PRINT"PULSA PLAY EN EL CASSETTE":MOTOR ONsCLOAD 
3100 IF 0=1 THEN C-OsGOTO 90 
820b C=l: ¡ GOTO 90 

i 9000 Lite ( X ,Y) —(X+24, Y+40) , 8 , BF s POR 1=0 TO 4: N= I48+Y: DRAW" C 15 BM=X ; , -N j " : PRINT# 
1 , " j• ¡- j~" s NEXT I s RETURN 

9010'LI ME(0,168).(255,191),!,BF:RETURN 

9020 GÜSUB 9010 í BEEP: DRAW'"Cl BM 100,176"sPRINT#1,"MI TURNO"¡POR 1 = 1 TO 400s NEXT ’ 
I RETURN 

9030 BOfeUB 9010 SíBEEP: DRAW" C1 BM 100, 176" : PRINT#! , "TU TURNO": FOR 1=1 TO 400:NEXT 
I:RETURN.. 

9040 GÜSUB 9010:BEEP:DRAW'Cl BM 10, 176":PRINTttl,"C13 OTRA CARTA C23 TE PLANTAS" 
:: F O R I = I T O 4 O O; N E X T I : R E T U R N 

j 9050 XXf INT (1ÍRMD (--TIHE) rio) s YY-INT ( 1+RND (-TIME) *4) : C0=8: IF YY<3 THEN CÜ-t 
9060 IF C*(XX-1,YY~1>=«3" GOTO 9050 
9.070 C* (XX-1 , YY-1 )' = "1 " : RETURN 

9090 GÜSUB 9010:BEEP;DRAW'Cl BM 100,176":PRINT#1,"LO SIENTO";POR 1=1 TO 400;NEXT 
I;RETURN 

: 9100 LIME (X , Y) -- ( X+16, Y+16) , 15, BFÍ: DRAW "BM =X ü , =Y; " : COLOR DOSPRINT#! , A* ( XX-1) • K#Y+ 
1 8S DRAW" BM =X ; ,-=K :¡ • •' : PRI NT# 1, B% (YY--1) : COLOR 15: RETURN 
9140 GÜSUB 9010; BEEP; DRAW'Cl BM 100,176";PRINTttl ,"MEjHE PASADO"i; F¡QR¡ 1=1 TÜ 400:Ñ 
EXT IsRETURN 

9200 LINE(X,Y) <X+24,Y+40),15,BF:DRAW"BM =X;,=Y;"¡COLOR CO:PR1NT#1,A$(XX-l):K=Y+ 

Si: DRAW"BM =Xs , =K; " : PRINT# 1, Ó$ (YY9 1) s COLOR 15: RETURN 
i 9300 GOSUB 9010;BEEP:DRAW'Cl BM 100, 176":PRINT#1,"ME PLANTO":POR 1=1 TO 400:NEXT 
I;RETURN 

9310 GOSUB 9010:BEEP:DRAW'Cl BM 100,176":PRINT#i,"HE GANADO":FOR 1=1 TO 400:NEXT 
I:RETURN 

9320 GOSUB 9010; BEEP: DRAW "C li BM 100, 176" ; PRI NT# 1 , "HAS GANADO " : FOR 1 = 1 TO 400: NEx 
T I;RETURN : 
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E55SS8 1^5553 i 



KSSSS3 KS59 E 

R5S553 E5553 E55553 E 

MIE523 E 


HISTOGRAMA 


10 ’ PROGRAMA <HISTOGRAMA> 

jU¿U- ? * ' \ . 

30 COLOR 15,4,4 

40 WIDTH 39sKEY ÜFFsSCREEN O 

SO LOCATE 14,2: PRINT "I-I ISTQGRAMA " 

60 LOCATE 2,6:PRINT"Este programa^de utilidad permite la introducción de da 
tos numr i cos para surepresentaci 6 n gráf ic:a en un hi stogramade 4 recu 0 nci as a 
bsülutas»" 

70 PRINT 11 PEINT" El nárnero máxima d'é datas que acepta el programa es superi 
or a 1000 y pueden ser i ntroduc:: :i. dos en cualquier orden»" 

80 LOCATE 5, 20: PR 1 NT "PULSA UNA TECLA PARA COMT'I NUAR" 

90 ÍF 1NKEY$="" THEN 90 

100 DEF FN R ( X) = INT(X * 1000+.51/1000 

110 CLS 

120 INF'UT"¿N. DE DAT0S";N 
130 D1M X(N) 

140 PRINT 

150 FOR 2*i TO N 

.160 PRINT" INTRODUCE EL DATO N„"¡¡2¡¡ 

170 INPUT XÍZ) 

180 IF Z=1 THEN MX=X(1):MN-MX 
190 A=A+X(Z) 

200 CX=CX+X(Z)*X(Z) 

210 IF X(Z)>MX THEN MX = X (Z) ELSE IF XIZXMN THEN MN=X (Z) 

220 NEXT Z 
230 M=A/N 

240 V« <CX-A*.A/N> / <N-1) 

250 DT=SQR(V) ^ ' 

26© PLAY f T255O4L64ABABAB " 

270CLS 

280 LOCATE 0,1s PRINT"RESULTADOS ESTAD ISTICOS; " 

' 290 PRI NTsPRINT"N. DE DATOSs “;M 
500 PRINT:PRI NT"SUMA DE LOS DATOS:";A 


310 PRINT:PRINT"MEDIA;" ;FN R(M) 
320 PRINT 8PRINT"VARIANZA s"; FN R ( 


330 PRI NT:PRINT"DESVIAC1ON TIPICA s";FN R(DT) 

340 PRINT:PRINT"VALOR MA XIMO:";MX 
350 PRINT!PRINT"VALOR MINIMO s";MN 
360 RN=MX-MN 

370 PRINT:PRINT"RANGO:"¡¡RN 
380.CE=INT((RN/12)*10+1)/1O 

390 PRINT:PRINT"TE RECOMIENDO UNA AMPLITUD PARA LOS 
400 PRINT:INPUT"¿QUE AMPLITUD QUIERES";B 
410 C~INT(RN/B+1) 

420 IF 012 THEN PRINIs PRINT"N. 

PLITUD":BOTO 400 
430 DIM N <C),A(C) , M(C) 

440 FOR Z=1 TO N 


INTERVALOS DE";CE 


DE CLASES DEMASIADO ALTO, PRUEBA CONQTRA AM 
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450 FQR X=1 Tü C 

460 IF X<Z) >=MN+(X-1)*B AND XtZXMN+XIB THEN N ( X) =N ( X ) +1 s A (X) =A(X)+X( 2) 

470 IF N < X)>NM THEN NM=N(X) 

480 NEXT X,Z 
490 CLS 

500 LOCATE 5,2: PRINT"DI VISION EN INTERVALOS" SPRINT: F'RI NT " 

5 i O F'R I NT " CLASE " ; TABU O) ; “ INTERVALO " ; T AB < 23) ; " DATOS " ; T AB (30) ; " MED IA " 

520 FOR X=1 TO C 

530 IF N(X)=0 THEN M(X)-O ELSE M < X)=A(X)/N (X) 

540 PRINT TAB(1 )5 USINB "##"5 X 5 

550 PR I NT TAB (7) ; US IN 8 " ####. # " 5 MN+ ( X - i ) *B; : PR INTTAB (13);" -•" ; TAB (14); US I NB " i 
###„ #"; MN+XsfcB; 

560 ÍPRIÑTTAB(23 > 5 USING"####"; N( X) ; 

570 IF N ( X ) =0 THEN PRIN'rf AB (30) ; ".. 

) 

580 
590 
600 
610 


ELSE PRINTTAB(29);USINB"####„##";M(X 


_SA UNA TECLA" 
VER EL":LOCATE 


NEXT XP 

LOCATE 2,21 SPRINT"PARA EL HISTOGRAMA PULE 
IF INKEY$="" THEN 600 ELSE CLS 
LOCATE 4, 10 SPRINT "CUANDO QUIERAS DEJAR DE 
TOGRAMA PULSA TECLA" 

620 POR T=1 TO 2000sNEXT 

630 SCREEN 2 

640 IF NM<1O THEN RS=1 ELSE IF NM<100 THEN RS=10 ELSE RS=100 

650 Q=INT(INT(NM/RS+1)/2ÍRS+.5)/10 

660 OPEN"GRPs" AS #1 

670 DRAW"BM12,O"s PR J NT#1,"N" 

680 DRAW"BM30,5C15S4A0D171R225" 

690 DRAW"BM240,184"s PRINT#1„"C" 

700 
710 
720 
730 
740 
750 
760 


8 ,12sPRINT"HIS 


FOR X=8 TO 168 STEP 16 
NI=(168-X)/8*QsXX=X+4 
IF NI OI NT (NI) THEN 750 
DRAW"BM4,=XX;"s PRINT#1,USINB"###";NI 
LINE(28,X +8 )-(31,X+ 8 ) 

NEXT 

FOR X-l TO C 

770 XX = 14+X*16sXl-XX+4. 

780 DRAW"BM=X1;,182"sPRINT#1,X 
790 LIME(XX+16,175)-(XX+16,178) 

800 NEXT X 

810 FOR 2=1 TO C 

820 IF N(Z)=0 THEN 870 

830 FOR X=0 TO INT (N ( Z ) /Q-~. 5) 

840 Xl=23+Z*16sX2=Xl+6sYY=168—X*8 

i 850 ; DRAW"BM=X1; , =YY; " s PRINT#! ,, "i" ; DRAW'BM=X2; , =YY; " s PRINT#1 .."i" 
860 NEXT X ’ “ 

870 NEXT Z 

(880 IFINKEY$="" THEN 880ELSE CLOSEttl 
890 SCREEN O 

900 LOCATE 2,4:PRINT"ELIGE UNA OPCIONs" 

910 LOCATE 4,7:PRINT"1.- INTRODUCIR OTROS- DATOS" 


920(LOCATE 4,9:PRINT" 
LOCATE 4,11 SPRINT 
= I NF'ÜT¿ (1) 

oi <>"1 

0*="1" 


DEFINIR OTROS INTERVALOS" 


?40 0$= 
i>50 IF 


' AND 
THEN 


RUN 



1 _ i.í.1.í 


.i .i. 

i . 

i 


! 

!. 









j 

j 

>"; 

J" AND 0* 

j< > 

"3" TH 

EN 

940 

i 



I 

; 







¡ 


930 
940 
9 

960 IF 
970 CLS 

980 LOCATE 4 , 10: F'R INI" PARA EL SIGUIENTE PROGRAMA" 
990 LOCATE 4,12 
: 1000 CLOAD 
1010 GOTO 1000 


SPRINT "PULSA F'LAY EN EL CASSETTE" 
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DIANA 


10 ’ PROGRAMA < DIANA > 

20 't.í 

30 COLORA,15,4 
40 KE.Y OFF 
50 SCREENO 

60 LOCATE 14 \ O: PRI NT" DI ANA 

70 PRINTs PRINT" En este programa te transformas en el ": PRINT' 1 val i ente pil 
oto de*-un carro de combate PRINT "en prácticas de tiro sobre una diana 

"SPRINT"móvil." 

80 PRINTs PRINT" Por cada disparo acertado ganarás 10 "¡s PRINT "puntos, pero 

cada vez qué falles perde. "sPRINT"rás 1 punto. Tienes hasta un total de 

"SPRINT" 10 pantallas en las que aumenta el nú-- " s PRINT "mero de obstáculo 
s. ” 

90 L0CA.lt: 5, 20-.PRINT"PULSA UNA TECLA PARA LAS" s L0CATE5,22s PRINT" INSTRUCCION 
ES DE MANEJO." 

100 IF INKEY*»"" THEM 100 ELSE CLS 
10 L0CATE2,5sPRINT" El tanque se muev 
c1 as de cursor."sPRINTsPRINT" El di spa 
I.N.T"barría espadadora. " 

IJL'5 LOCATE 0, 15: INPUT"JUEGAS CON TECLAD 
120 LOCATE! , 20: PR I NT "PULSA UNA TECLA PA 
130 IF INKEY*»"" THEM 130 
140 COLORIO,15,4 
150 OREN"GRP: "AS#1 
160 SCREEN 2 
7 0 60SUB 780 


ir r i b a y 

abajo 

: 

"¡PRINT"con las te 

se consi 

Q LA 0 |pU 


ando 

l a" s RRINTsiPR 

! i i i ■ i 1 w i 

0) 0 JOYSTICK 

a 

) ": 

; DS 

COMENZAR 

: EL. JUEGO" 

“Ti " 7f 


lili 




0 SC'=1 


(0,0>-(20,1911,4, BFs LINE (235,0.1 - (255, 191) , 4, BF s LINE (0, 0) - (.255.,. 14) ,4 

1 i i i! i II ‘ I í I i ¡i I ¡i i i i I ! 1 í I 


UB 720sGÜSUB760 
O.s DI =0 

SC>10 THEN GOTO 420 


30 POR Z-l T'O 11+SC 
40 PS-INT(RND(1)*22+2)*8 
250 IF P01NT(121,PS> =10 THEN 240 

260 DRAW'BMl 18, =PS; C12R6D1 LSD 1L1R6BM130, =F'S; R6L1D1L.5D1R6" 
270 PS=PB+'4 

280 DRAW " BM118, “PS; R6D1 LSD 1L1R6BM130, =PS; R6L.1D1 LSD 1R6 " 

290 NEXT 


D(1)*165+16) 

*165+16) 

. i i ¡ i i j i i 

GOSUB 510,51i0s STRIG (DS) ON 
SUB660:1NTERVAL. 


ON 

ON 


j . ; .TT. "1 






M M 1 

i 


1 .t.i.l. 1 

L.ii.ii 



; . ■.! i. 3 



., ..; : 



f f' 1 | ! 



[i f e ] 



j .f f "'i 



1 ".!.] i 1 

1 j | i i 



1 .t .i.r.i 









r i r i 1 

♦ , ;_f~ 
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380 IF D=1 THEN D=>1 ELSE IF D=5 THEN D==2 EL.SE 370 
390 ON D 60SUB 600,610 
400 GOTO 370 : 

: 4io Go r04 10 . . . . . . . . . . . . . . 

420 FOR T=1 TO 1000:NEXT 
430 SCREENO 

440 L0CATE4,8:PRINT"PULSA JPARA OTRO JUEGO":L0CATE4,1OSPRINT"PULSA T PARA 
TERMINAR" 

450 R$= I NF'UT* (1) 

460 IF R$=" "THEN 450 EL.SE IF R*="J" OR R$="j" THEN RUN 140 ÉL SE : IF R*<>"T" 
AND R*< >"t" THEN 450 
470 CL.S 

480 L0CATE4-, 10s PRINT"RARA EL SIGUIENTE PROGRAMA" 

490 LQCATE4,12sPRINT"PULSA PLAY EN EL CASSETTE" 

500 CLOAD 

510 STR18(0) OFF:INTERVAL OFF 
520 ON SPRITE G0SUB620: SPRITE ON 
530; PUT SPRITE O, < XT, YT) , 6, O 

540 COR X=XT+3 TO 230 S'T'EP 3 . 

550 PoT!SPRITE4,(X,YT),8,4 

560 IF F'OINT (X +6, YT+4) =12 THEN X==255s VL..=Os PLAY"t25502L2G" 

570 NEXT 

580 PUT SPRITE4,(O,200),4,4 

590 IF VLOi THEN STR 16 (O)ONs INTERVAL ON s PT=PT-1 : G0SUB720: RETURN EL SE PLAY" 
o4164cdedefdefc::dd":SC=SC+l;PT=PT+10:LINE«21,15>~<234, 191) , 15, BFs FlETURN 190 
■ 600 YT=TT-1 *ABS(YT>14)sPUT SPRITE O, (40,YT),6,2:RETURN 
610 YT=YT+1*ABS(YT<183):PUT SPRITE O,(40,YT),6,1sRETURN 
620 X=255sVL=l 

630 PUT: SPRITEO, (--10, YT) ,4,0 
640 PUT SPRITE3, (-10,YD) ,4,3 
650 RETURN 

660 S-RMD (1 ) : IF S>„ 5 THEN SG=5 EL.SE SG=-5 
670 YD=YD+SBs. IFYD422 OR YD>1Z8 THEN SG=-SGs G0T0670 
680 PUT SPRITE 3, (215,YD),1,3 
690 RETURN 

700 PUT SPRITE O, < XT,YT), 6,0 
710 RETURN 

720 DRAW"BM30, O":PRINT#1,“Puntos: " 

730 LINE(86,O)-<120,1O),4,BF 

740 DRAW'bmSB,O":PRIMT#1,USING"###";PT 

750 RETURN 1 

760 DRAW"bm 150, O" : F'RINT#4 , “Di ana-:-" ; SC 
770 RETURN 

780 RESTORE 870: FOR SP=0¡ TO 4 
'] 790: T$=” " 
abo 1 POR Z=1 TO 8 
810 READ E 
820 T*at#+.OílR* (E) 

830 NEXT i 

840 SPRITE*(SP>=T* 

850 NEXT 
860 RETURN 

870 DATA 252,252,120,79,79,120,252,252,195,255,231,231,255,219,24,24,24,24. 
219,255,231,231,255,195,28,24,56,56,56,56,24,28,O,O,0,3,3,O,O,O 

I • ] ! ] ! 1 ! 1 I - i ! ! J ; i ! I !' I '• í i: i i f ! i- : L j. ! ; i i í j : r 
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SOLITARIO 


1 REM Copyriqht 1985 by J.L.T. XV. 

2 WTDTH39:KEYÓFFs COLOR 15,4,4sCLSsREST0RE91008LOCATE17,O5PRINT"SOLO"SFORI = 1 
T 017: RE AD X $ s LOC ATEO, I + 1 . : PR I NT X %; NE X TI 

3 LOCATEO,20:PRINT" PULSA TECLA PARA CONTINUAR"8 X*=INKEY*:IFX$=""BOTO 3 

4 CLSs FOR I— 1T09:READX*:LOCATEO,I +1:PRINTX*sNEXTI 

5 LOCATEO, 20SPRINT" PULSA TECLA PARA COMENZAR" s X$=INKEY$: IFX'$=" "GOTO 5 
10 DIMT*(15) ,C < 7,7) :CLS 

100 CLS;GOSUB3000 

2Ó0LÓCATEO,18!: PRI NT "DESDE FILA:";sBEEP 

201 X*=INKEYÜi sIFX*«""THEN201ELSEIFXft~”O"THEN5000ELSEF1«VAL< X$) 

202 LOCATE11,18:PRINTF1sL0CATE20,18¡BEEPsPRINT"COLUMNA:" 

203 Xé«TNKEY¿ sIFX*=""THEN203ELSEIF M=" O"THEN5000ELSEC1«VAL(X*) 

206 L0CATE28,18:PRINTC1¡LOCATEO,19:PRINT"HASTA FILAsSBEEP 
208 X*«IN14EY*s IFX*«" »THEN208ELSEiFXjfcM"O"THEN5000ELSEF2«VAL < X$) 

210 LOCATE 11., 19: PR INTF2: LQCATE20,19; BEEP: PR I NT " COLUMNA: » 

212 X *= INKEY*; IF X*=" " THEN212ELSEIF X $= " O " THEN5000ELSEC2=VAL ( X ) ; LOCATE 11,19 

213 L0CATE28, 19: PRINTC2L' 

214 IF <F1< 1 ) OR (F1 >7) 0R(C1< 1 ) OR (C1 >7) OR (F2< 1) OR <F2>7) OR (C2< 1) OR (C2>7) ®0T0 23 

V . ’.í 

216 IF<d(Fl,.Cl) 0.1) OR <C (F2,'C2) <>—1) OR <C ( (Fl+F2)/2, (C1+C2) /?.) < >1) BOTO 230 
218 IF((F1=F2)AND(ABS <C1-C2)«2))OR((C1=C2)AND <ABS(F1—F2)«2))THEN220ELSE230 
220 C'( Fl¡, C1) p-1 s LOCATEC1 *2,' F1 *2: PR I NT " "sC( (F1+F2) /2, (C1+C2) /2)«-l; LOCATE (C 
1+C2), < Fi+F2)SPRINT" "sC(F2,C2)-1sLOCATEC2 * 2,F2 *2 s PRINT"J"sBEEP 
230 BQSUB3100;BOTO 200 

1000 DATA" 1 2345 6 7 " 

1001 DATA" XWRWRWY ","1 V V V V TWUWUWS ","2 V V 

V V "," XWRWUWUWUWUWRWY" 

1002 DATA"3V V V V V V V V"," TWUWUWUWUWUWUWS","4V V V V V V V V"," TWUWUWU 
WUWUWUWS","5V V V V V V V V" 

1003 DATA " ZWQWUWUWUWUWQWE","6 V V V V TWUWUWS ","7 V 

V V V "," ZWQWQWC i" 

3000 RESTORE10001 F0RI=0T015:READ:T$X I)«J*sNEXTI 
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3002 FÜR 

ÍI» 

OTO15 2 i 

LOCATEO,! 

íSPRINT 

ÍT* 

(I 

) s 

OC 

NEXT 

1 









3010 F 

: '0R 

:]> 

=3T05 s F! 

□RJ=1T07¡ 

ICU, J> 

= 1 

s L 

ATEJ 

* 23 I *2 i 

3 PR1 NT 1 

■ 1 " 

.ÜÜm 

s N 

■EXTJ 2 NEXTI 



pn 







rUrvj. “ói 
I-ss:~i..i « i nr-¿VT 

üüí r Ur\U ^ 1 i U / 2 L- s ü 3 1 ) 
Í3» PPT'KIT" » «dExIJíE-KI 

: = 1 

s LULA iti 

#2 3 J t2\ 

s PRINT* 

i 

fs'M 

íEXTJ 2 NEXT I 

2 0(4: 

| 







3100 FOR 

k= 

? w ■ i > \ 

= 10X821 

sL0CATE0, 

IkíPRINJ" 















ll , 

íme 









XTK: 

;RÉTURN 

























5000 GOSUB 

¡3100 s L0CATEO, 19 s PRINT 

1 11 

| E 

s empezar;s 

2 SOLUCIONAR F 

2 FINALIZAR 

ii 


3" 3 









O U U 4 ¿ A S • 

n&ÍY<íi:“l'r 

• i IMKfc. Yí»! 1 r AS™ i l 1 ti' 4 ÜUU.¿tLot ir \ 
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‘ i 

;«• xucri 

t." ) ur< í as™ “ e " ) 

\! 5 5 A r i c; cr«-~; 

1 NLN 1 UUtLat i t C 

j. . j. . j. 

:n: 11 ; 

f. 








5500COLOR 1 

5,4. ■ 

4 2 CLS s LÜCATE7,, i 

O S 

PRINT" 

PARA E! 

i— i— 4¡ 

PROX INC 

3 PROGRAMA" 

2 U 

DC ATI 

£.1* 

4 . 3 .J 

! 








2s PRINT" 

PULSA PLAY "2 CL0AD 
























8000 CLS 

¡s REST0RE9000 s GÜSUB3000 






=RIN* 








t" 5 F 1 














bUU¿ i-UKi-i i U-;:. 1 2 KbHUr i 2 ntHL/L i 2 LULFi i tU 
Lr:ÓA i o „ DDIÍKIT M rni t imkía ¿u « rLi. » racr.iro 

*f i Ü B 1 

T" I 

JtbUt; 


r I LH 

! 2 

2 WfcLb.! 

•-‘2 LUUR I 

r. 







8004READF 


BEAD 1 

3 w j. B 

D2i LOE AIÉO ,1.1.9 s PR I NT 

"HASTA 

FILA! 

, ll a p‘ ' ^ a 

BEEP 

h L0CATE2 ( 

D, 

19 

2 PR I !•' 

i 







T"COLUMNA 5 

r n 

;C 2 s: 

BEEPs F0RJ=ÓT0300 2 

NEXTJ 





















¡8006 LOqATEC 1 * 2,1 

F1#2:PRINT" "s LOCATE <C1+C‘ 

2 )3 (F1+F2)s 

PRINT" 

«i 

2 lücatéc ?*?" 5 f 

~2'Á 

\ . 






: 2 r K i íN i “m 

Qñññ 

2 yfc.b.h '2 1 

, A A A 

r ukü -~u i u..: 

i 5 2 5 4 

jUU S A ¡ U 

1.7 7 5 7 

S bUbUH 
^cr -i cr 

1 UU S NhX ¡ ISbUi U DUUU 

7.k ..J.5 .1.5 A .5 7.5.i. 

5 3 

, 5 

,6 

1 ,! 

cr 

,4,7, 

4,5,1 







: nr j i¿r 


7, 

; 3i( 

7, 

5, 4 ,J 

te; / cr -7 n 

w t{ W H W q / q %. 


u 4 

',5 

1 ; U 6 

*7 

i 5 

q 4. 3 i 

,4,5 

? ■ 
r~y 

q . 0 - 1 

J. q ^ 

4 .V 1 ..«1 

i 

o 

i , w 

í 5 3 

4 3 j- 3 ww 

1,5, 

3 

V 1 *| 

«i w 3 

N 1 

;w «! H 

q %J - 

D , •’ 







? 5 ? 1,5 

? 3 

5 

i 





























9002 I 

)ATA4 

,7 

, 4, 5 

5 7 5 5 

1 Oí * 1 WJ Uí 

,4,5,2, 

5, 

.<« 

7, 

i*~‘ 3 

5,: 

2,5,' 

/y cr cr cr ~.f a: 

I' , J q w 1 q v_‘ q •„> q 

Í3 4 
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“ c 

* ca 





nrv r*\ r*\ n r* 









sabré un 

0 " q "de : 

J. 1 L C" i .1 L. 1 q 

rx7 sin 1 

ais esquinas. 

! 1 1 

ít ! 

? 

it 



j ucy a t i i 




5 








9102 DATA" 

En cada uno de 

? los cuadros 

hay 

una 

me 

^_ 1 

i i 

: 3 

‘nede 

u 

sal vo 

en 

el centr 








i al ? 

que 

está 

1 i- 

", "bre. E 

El objeti 

va 

i del 

sbiitari o 

es in~ 

i II 

* 

" vertir 

la 

si tuac 









ion 9 es Decir ¡,aejar t-i 

9104 DATA"tab1erp yac í a ? salvo e1 
as fichas, haciendo".“saltar una 

cuadro Centra! 
; por encima de 

1 

C 

i H n 

3. . 

atr a 

1 , " Se pueden 
con ti qu.a" , " (1 

mover 3 
a su dere 

Vi 








cha 

o 

a 

SU 

i i 

zquierda 3 arriba" 























9106 DATA" 
tonees se 
¡ ablero. " 
9110DATA" 

o abajo) si es 
( come" 3 "aq ueTi ¿ 

que al c 
a sobre1 

¡tro lado 
a que se 

de sta ", "t 
ha saltádc 

¡i a y un 

3 y se" 

cuadro vacio 

3 "1 a retira i 

L Er 
de 1 i 

1 








Elprograma primero 

: te 

¡ pedirá 

la fila 1 

i i 

3 . 

‘y 

la c 

olumna 

de ! 

I a 

f i ch 

1 . 








a que 

vas 

a 

moh": 

q "ver y i 

a continiiac 

i ón 

1 a 

f i 1 a y 3 

i a 

co™ " 

1 II 

1 umria 

de 

3. cuadro 









donde 
9112 r 

la quieres colo-" ¡,c 
)ATf A" Para parar j: 

:ar« 

puisacer 

o 

<0) 

cuando 

te" , 

, "p i da 

f i 

; la 

ocolumna 

-•! I 
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Para 

saber cómo 
hablar con los 
ordenadores 


Otros Cursos: 

- Introducción a 
la Informática 

- Electrónica |con experimentos! 

- Contabilidad 

- Fotografía 

- Curso de Video 

- Decoración 


El Curso CEAC a Distancia, 

BASIC + Microordenadores, 
le va a introducir paso 
a paso, con un cuidado 
método, en uno de los temas más 
apasionantes de nuestros días: 
la programación de ordenadores. 

Al aprender PRACTICANDO desde un principio 
a programar BASIC, lenguaje diseñado 
especialmente para dar los primeros pasos 
en programación, estará sentando las bases 
para el estudio de cualquier otro 
lenguaje de altg nivel. 

Curso CEAC A 

de BASIC + Microordenadores: M 

un diálogo permanente 
con el ordenador. 


ESTAS ENSEÑANZAS SE AJUSTAN AL ART. 35 

DEL DECRETO 707/1976 Y A LA ORDEN MINISTERIAL DE 5/2/1979 


r deseo recibir a la mayor 
I brevedad posible información 
\f sobre el Curso de: _ 


Población 


Provincia 


Profesión _____ 

CEAC. Aragón, 472 
(Dpto. j 081 


CENTRO DE ENSEÑANZA A DISTANCIA 
AUTORIZADO POR EL MINISTERIO DE 
EDUCACION Y CIENCIA N.° 8039185 

(BOLETIN OFICIAL DEL ESTADO 3-6-83) 
Aragón, 472 (Dpto. 08013 Barcelona 

Tel(93) 245 33 06 


CURSO DE 


Microordenador 

COMMODORE 


Microordenador 
ZX SPECTRUM 


Microordenadores 
AMSTRAD, MSX, PC 


GRATUITAMENTE 






























